home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh72a.d64 / graf.einf. fx-80 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  201b  |  11 lines
  1. 10 REM --- DRUCK EINER SINUSKURVE ---
  2. 20 REM -- IM GRAFIKMODUS DES EPSON --
  3. 30 OPEN1,4
  4. 40 PRINT#1,CHR$(27);"*";CHR$(0);CHR$(100);CHR$(0);
  5. 50 FORI=1TO100
  6. 60 A=2^INT((1+SIN(I*(null)/20))*3.5+.5)
  7. 70 PRINT#1,CHR$(A);
  8. 80 NEXTI
  9. 90 PRINT#1
  10. 100 CLOSE1
  11.